...
    dim ChristmasSpec as DaySpecification
    dim NearestBusinessDaySpec as DaySpecification
    ChristmasSpec=theScheduler.CreateObject(CID_DaySpecification)
    NearestBusinessDaySpec=theScheduler.CreateObject(CID_DaySpecification)
    ChristmasSpec.SpecificationType=dstSpecifiedDays
    ChristmasSpec.Months(12)=True
    ChristmasSpec.Days(25)=True
    NearestBusinessDaySpec.SpecificationType=dstFloatingOffset
    NearestBusinessDaySpec.Occurrence=otFirst
    NearestBusinessDaySpec.Weekdays(wkdMonday)=True
    NearestBusinessDaySpec.OccurrenceBase=ChristmasSpec
    ...